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EDTSLDEFM = DEFINE MACRO Line-mode command 18-500-1984 00:37 44 VAX-11 Bliss-32 V4.0-7 Page 1| 
14-Sep-1984 23:31 DISKSVMSMASTER: tt i sre LDEFM.BLI;1 (1) 
1 ZTITLE “EDTSLDEFM = DEFINE MACRO Line-mode command’ 
¢ MODULE EDTSLDEFM ( ' DEFINE MACRO Line-mode command 
? ~_ we = 'v04-000' ' File: LDEFM.BLI Edit: JBS1005 
= 
tte BEGIN | 
00 PITITITILITILI LLL LLL LLL Lii ili iil liTiiiiiiiiiiiiiitiiiiiil 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'* THIS fe “Were IS ieee UNDER A LICENSE AND MAY BE USED AND COPIED 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ABOVE sy eaners NOTICE. a SOFTWARE OR ANY OTHER 
t* COPIES THEREOF MAY NOT BE P OvIDED OR OTHERWISE MADE AVAILABLE TO ANY 
» PRANSFERRED NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
pORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ooooo 
[SEs 
oO 
Ooo 


IAPIPOPINIPINPINININIDD 2 2 2 OO OO 


eaeneneeeneneeeeneenenenenanwaee 


Vee RRA AAA AAARAAAE ARERR AAAARARAEAAAAAAAA EAA AAA AAAAAAAAAAAAATAARAARAAA AEE 
' 


NAUEWN CO OONAUFSWN (OO DOONOUES WN ODO ONOUL Wh 
SOoooooooooo°oo 


WANNA UID DINU DINININPUNNYDY 2 2 2 OO OS SS 


iy! description block. Add a field to t a: = TBCB whic will point 
to the buffer containing vant next macro V 6-Aug~81 
- Use the new message codes. x. BS O64 £igo1981 


1-004 
1-005 = Regularize format. JBS 04 


ae 
Oc 


WO OONOA UE WR 09 OONO UE WN "OC OODNAUS WN “OVO ONOULS Wh 


3 
S 


$03 '++ 
0032 1 | FACILITY: EDT == The DEC Standard Editor | 
003 i ABSTRACT: | 
Oos This module executes the Line mode DEFINE MACRO command. 
35 Oos ENVIRONMENT: Runs at any access mode - AST reentrant | 
40 004 | AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 | 
4 004 : MODIFIED BY: 
44 04 i 1-001 - Original. DJS 30-JAN-1981. This module was created b 
45 004 : extracting the routine EDTSSDOEFM_CMD from the module EXEC.BLI. 
46 004 ! 1-002 - Regularize headers. JBS 19-Mar-1981 
47 004 1-005 - Implement virtual memory deallocation ,and remove the seperate 
i 
i 


a aa kk ed ad a ed td a a a a os 


mu 
Wr 
ooo 
ooo 
Aan 


M13 
SLDEFM = DEFINE MACRO Line-mode command Jg~3e0= 1386 00:60:44 
arations 14-Sep-1984 12:23:31 


a 


DT 
ecl 
5 : RSBTTL ‘Declarations’ 
5 $ i TABLE OF CONTENTS: 
8 \ 
9 
60 39 REQUIRE ‘EDTSRC: TRAROUNAM'; 


FORWARD ROUTINE 


an 
FRARRARRAL POSSSOS 


$ 1 

5 1 

3 1 

3 1 

; 1 

3 1 

5 1 

3 99 +1 

3 o7 o} : EDTSSDEFM_CMD : NOVALUE; ' Process the 
3s 6 ¢ 1! 

3 66 8 1 ! INCLUDE FILES: 

3; § 4 1! 

; 0s 1 

3 69 06 1 REQUIRE ‘EDTSRC:EDTREQ'; 
: 70 41 1 

3 71 | os 

: 7 064 1 ! MACROS: 

3 7 0644 1! 

s 66 0645 1! NONE 

> 0646 1! 

3 76 0647 1 ! EQUATED SYMBOLS: 

.) ve 0648 1! 

> 0649 1! NONE 

: 79 0650 1! 

; 80 0651 1 ! OWN STORAGE: 

; si 0636 1! 

.- 0655 1! NONE 

 @ 0654 1! 

5 84 0655 1 ! EXTERNAL REFERENCES: 
; §5 0656 1! 

: 86 0657 1! In the routine 


} 
| 
liss- Vi 0-748 Page 2) 
MASTER: CEDT.SRCILDEFM.BLI;1 (2?) 
| 


DEFINE MACRO command 
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EDTSLDEFM EDTSLDEFM = DEFINE MACRO Line-mode command 16-Sep-1984 00:47:44 VAX-11 Bliss-32 V4.0-74 Page 3 
ate EDTSSDEFM_CMD - DEFINE MACRO llae~ands command 1-8ep-19 4 90:30:44 ST KSUMCMASTERSCEDT SRCTLDEFM.BLI;1 . (3) | 
; 4 $38 } ZSBTTL "EDTSSDEFM_CMD = DEFINE MACRO Line-mode command’ 
; 50 660 1 GLOBAL ROUTINE EDTSSDEFM_CMD ! DEFINE MACRO Line-mode command 
ci) 661 1 : NOVALUE = 
; ¥ 662 1 
- - bee 1 !e+ 
: Be eC) ! FUNCTIONAL DESCRIPTION: 
; © 096 1! Command processing routine for DEFINE MACRO. A new text buffer 
i Se 0667 1! is created if it did not already exist, and it is added to the 
; 98 0668 1! list of macros. Each macro is described by a control block 
; 99 be8 s called a MAC_DESC which has a petover to the TBCB for the macro 
3 Ms bene : : and the addréss of the next MAC_DESC. . 
3 196 067 1 ! FORMAL PARAMETERS: 
: 10 0673 1! 
; 104 0674 1! NONE 
: 105 0675 1! 
: 106 0676 1 ! IMPLICIT INPUTS: 
: 107 0677 1! 
: 108 0678 1! EDTSSA_EXE_CURCMD 
; 109 0679 1! 
; 110 0680 1 ! IMPLICIT OUTPUTS: 
e S95 0681 1! 
3 i.¢ 0682 1! NONE 
e. SF 0683 1! 
: 116 0684 1 ! ROUTINE VALUE: 
s 115 0685 1! 
: «6116 0686 1! NONE 
: 117 0687 1! 
; 118 0688 1 ! SIDE EFFECTS: 
: «119 0689 1! 
: 120 0690 1 NONE 
wo RRL 
ee 0693 1 
3 124 0694 2 BEGIN 
; 125 0695 | 
: 126 0696 EXTERNAL ROUTINE 
s Yer 0697 DTSSFMT_MSG, 
; 128 0698 EDTSSFND BUF, | 
3 +4 0699 EDTS$RD_CURLN; | 
: 130 0700 
: 13! 701 exten, 
. 3 § 7 ; EDTSSA_BUF_LST : REF TBCB_BLOCK, 
5. 3S 70 EDTSSA_CUR_BUF : REF TBCB_BLOCK 
3 13 ta 'e4 EDTSSA_EXE_CURCMD : REF NODE_BLOCK; ' Pointer to the current command. 
: 136 0706 MESSAGES ((INSMEM)); | 
3 5 7 
; 138 708 OCAL 
; 139 709 SAVE_TBCB 
: 140 210 RANGE : REF NODE_BLOCK; 
: 142 Orie '¢ 
: (14 71 ! Save current TBCB so we can get back, 
: 144 0714 t= 


E FR DISLDEFM = DEFINE MACRO Line-mode command hes 1984 4 VAX-11 Bliss-32 V4.0 Pa 4 
a Pee sit EDISSDEFM.CMD - DEFINE MACRO Line-mode command : ~8ep-1984 4 99: $f: $4 Disk SVMSMASTER:LE Bf She LDEFM.BLI;1 - ca 
5 165 15 SAVE_TBCB = ,EDT$$A_CUR_AUF: 

; 146 7 z RANGE = B DTéea LEXE-CURTMD ERANGE1]; 
; 148 a i Find or create the buffer to be defined. | 
a 7 ; 

: i ° f 1 IF EDTSSFND_BUF (.RANGE CBUF_NAMEJ, .RANGE CBUF_LEN) | 
: 4 § 7 § 16 

; : ¢ f : Designate the buffer as a macrc. 

; 4 : 726 EDTSS$A_CUR_BUF CTBCB_IS_MAC] = | 
; i , . ay ELSE | 
: 139 07 ; ! Memory allocation failed. Put out a message. 

: 161 0731 2. EDTSSFMT_MSG (EDTS_INSMEM); 

: 18 Ores $16 ‘ 
: 164 0734 i Position back to the original text buffer. 

> 165 0735 in 

: 166 0736 

: 167 tA 44 EDTSSRB_CURLN (); : 

; 6168 0738 #1 END; ! of routine EDTSSDEFM_CMD 


EDTS$A_CUR_BUF , - SAVE _TBCB; 


-TITLE EDTSLDEFM EDTSLDEFM ~ DEFINE MACRO Line-mode co 
mman 
- IDENT \V04-000\ 


EXTRN EDTSSFMT_MSG, EDTS$FND_BUF 
EXTRN EDT$$RD Gur RLN, EDT$$A_BUF _LST 
SEXTRN EDT$$A_CUR BUF, PD TSSA. EXE™ CURCMD 
EXTRN EDTS$_INSMER 
.PSECT _EDTSCODE,NOWRT, SHR, PIC.2 
000¢ 00000 .ENTRY EDTSSDEFM_CMD, Save R2,R3 : 0660 
53 000000006 09 9E 90002 MOVAB EDTS$A_CUR_BUF, R : 
52 63 00 0000 MOVL  EDT$S$ATCURBUF, SAVE_TBCB > 0715 
30 000000006 00 D0 0000 MOVL EDTS$ATEXE-CURCMD, RO + 0716 
0 04 AO 4 001 MOVL 4(RO), RANGE 3 
7E 08 Ad 7D 0001 MOVO 8(RANGE), <(SP) : 0721 
000000006 g 9 FB 01 CALLS #2, EDTSSFND_BUF F 
E 0g BLBC RO, 1$ : 
0 6 p 00 MOVL  EDTS$A_CUR_BUF, RO > 0726 
28 A0 1 0028 MOVB #1, 43TRO) $ 
D 11 0002C BRB 2$ : 
000000006 8F DD 0002E 1$ PUSHL #EDTS$_INSMEM : 0731 
000000006 0 1 FB 0 CALLS #1, EDTSSFMT_MSG ; 
6 : D 0 B 2$ MOVL SAVE_TBCB, EOT$$A_CUR_BUF + 0736 
000000006 00 0 FB O05 CALLS #0, EDTSS$RD_CURLN ; 7 


; Routine Size: 70 bytes, Routine Base: _EDTSCODE + 0000 


j -1984 4 X-11 ss-32 V Page 5 
alfne-mode command 16-Sep-1964 00:47:44 VANI1 BLiss-32 y4-0-74g | Page 


Elapsed Time: 00:13.0 
Lines/CPU Min: 418 
Lexemes/CPU-Min: 12405 
pees | Used: 74 pages 
Compilation Complete 
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EDTSLDEFM EFINE MACRO Line-mode command 16-Sep- 138% 00:47 % VAX-11 Bliss-32 V4.0-74 
EDTSSDEFM_ = DEFINE MACRO Line-mode command 14- ~hep- 19 1 DISKSVMSMASTER: CEDT.SRCIJLDEFM.BLI;1 
; 17 741 1 END ! of module EDTSLDEFM 
i Org ! of module EDTSLDE 
; (174 745 0 ELUDOM 
3 PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 70 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Be toh ae Serie pen SEA > emenaliad Symbols ----<---- Pages Processing 
5 File Total Loaded Percent Mapped Time 
> _$255$DUA28: 1.SRCJEDT L321 377 74 19 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LDEFM/OBJ=OBJ$:LDEFM MSRC$:LDEFM.BLI/UPDATE=(ENHS:LDEFM) 
Size: 70 code + 0 data bytes 
Run Time: 00:10.7 
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